1 REM"ORIGINATED BY STEPHEN LEE"
5 POKE 53280,5:POKE 53281,11
10 PRINT"[147][155]"TAB(16)"HURKLE."
20 PRINT""TAB(13)"COPYRIGHT 1979"
30 PRINTTAB(12)"HANIMEX PTY LTD."
40 A=RND(-TI)
50 FORQ=1TO2000:NEXT
110 N=5
120 G=10
210 PRINT"[147]"
220 PRINT"A HURKLE IS HIDING ON A"G"BY"G"GRID.
230 [153]"HOMEBASE ON THE GRID IS POINT 0,0"
240 [153]"ANY GRIDPOINT IS DEFINED AS X,Y"
250 [153]:[153]"YOU GET "N"TRIES TO GUESS THE GRID POINT WHERE THE HURKLE IS HIDING"
265 [153]:[153]"I WILL TELL YOU THE APPROX POSITION"
270 [153]"TO GO LOOK FOR THE HURKLE, AFTER EACH   TRY."
275 [153]:[153]:[153]
280 [153]"PRESS ANY KEY WHEN READY TO START."
281 [161]Y$:[139]Y$[178]""[137]281
282 [137]1000
285 R[178][187](1)
286 A[178][181](G[172]R)
287 R[178][187](1)
300 B[178][181](G[172]R)
310 [129] K[178]1 [164] N
320 [153]"GUESS #";K;"WAIT";
330 [161]Y$:[139]Y$[178]""[137]330
332 X[178][197](Y$)
335 [153]X;",";
336 [161]Y$:[139]Y$[178]""[137]336
337 Y[178][197](Y$)
339 [153]Y
340 [139] [182](X[171]A)[170][182](Y[171]B)[178]0 [167] 500
350 [137] 1100
360 [141] 610
380 [130] K
410 [143]
420 [153]"        SORRY, THAT'S";N;"GUESSES."
430 [153]"        THE HURKLE IS AT";A;",";B
440 [143]
450 [137] 524
460 [153]
470 [137] 285
500 [143]
510 [153]
520 [153]"YOU FOUND HIM IN ";K;"GUESSES!"
524 [153]"DO YOU WANT ANOTHER GO (Y OR N)"
525 [161]Z$:[139]Z$[178]"Y"[167] 1000
526 [139] Z$[179][177]"N"[167] 525
528 [129]T[178]1 [164] 500:[130]:[147]"THE MAIN MENU/BM",8,1
530 [129] I[178]1 [164] 10:[153][199](7):[130] I:[153]
540 [137] 440
610 [153][163]25)"GO  ";
620 [139] Y[178]B [167] 670
630 [139] Y[179]B [167] 660
640 [153]"SOUTH";
650 [137] 670
660 [153]"NORTH";
670 [139] X[178]A [167] 720
680 [139] X[179]A[167] 710
690 [153]"WEST";
700 [137] 720
710 [153]"EAST";
720 [153]
730 [142]
1000 [153]"LOAD     FIND THE HURKLE......"
1010 [153]"9 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1011 [153]"8 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1012 [153]"7 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1013 [153]"6 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN     NORTH"
1014 [153]"5 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1015 [153]"4 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN  WEST  +  EAST"
1016 [153]"3 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1017 [153]"2 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN     SOUTH"
1020 [153]"1 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1021 [153]"0 (null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(FN"
1022 [153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1023 [153]"   0 1 2 3 4 5 6 7 8 9"
1024 [153]
1030 [137] 285
1100 [153]""
1110 [139] Y[178]9 [167] [153]"":[137] 1150
1111 [139] Y[178]8 [167] [153]"":[137] 1150
1112 [139] Y[178]7 [167] [153]"":[137] 1150
1113 [139] Y[178]6 [167] [153]"":[137] 1150
1114 [139] Y[178]5 [167] [153]"":[137] 1150
1115 [139] Y[178]4 [167] [153]"":[137] 1150
1116 [139] Y[178]3 [167] [153]"":[137] 1150
1117 [139] Y[178]2 [167] [153]"":[137] 1150
1118 [139] Y[178]1 [167] [153]"":[137] 1150
1120 [153]""
1150 [139] X[178]0 [137] 1200
1151 [139] X[178]1 [167] [153]"";:[137] 1200
1152 [139] X[178]2 [167] [153]"";:[137] 1200
1153 [139] X[178]3 [167] [153]"";:[137] 1200
1154 [139] X[178]4 [167] [153]"";:[137] 1200
1155 [139] X[178]5 [167] [153]"";:[137] 1200
1156 [139] X[178]6 [167] [153]"";:[137] 1200
1157 [139] X[178]7 [167] [153]"";:[137] 1200
1158 [139] X[178]8 [167] [153]"";:[137]1200
1159 [153]"";
1200 [153]"SPC(SPC("
1212 [153]""
1220 [139] K[178]2 [167][153]"ON":[137] 360
1221 [139] K[178]3 [167] [153]"":[137] 360
1222 [139] K[178]4 [167] [153]"":[137] 360
1223 [139] K[178]5 [167] [153]"":[137] 360
1250 [137] 360
2000 [128]